Clean up after granbbing CVS/Root info.

diff --git a/lisp/vc-cvs.el b/lisp/vc-cvs.el
index 1e9788487bc88e2741bd538febf01bd3955e435b..40f601a77388fb7f759098438e4aac4c262c97c3 100644 (file)
--- a/lisp/vc-cvs.el
+++ b/lisp/vc-cvs.el
@@ -927,7 +927,7 @@ state."
             (save-excursion 
               (set-buffer (find-file-noselect "CVS/Root" t))
               (and (looking-at ":ext:") (delete-char 5))
-              (buffer-string))
+              (prog1 (buffer-string) (not-modified) (kill-buffer nil)))
           nil)))
     (concat
      ;; FIXME: see how PCL-CVS gets the data to print all these